Collection of Tools & Utilities/Collection of Tools and Utilities.iso/ada/adatu200.zip/FIB.DUM

Text File | 1991-03-25 | 144b | 7 lines

-- Dummy solution to Outside Assignment 4
separate (FIBTEST)
function FIB(N : in POSITIVE) return POSITIVE is
begin
   return 4;
end FIB;